home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Belgian Amiga Club - ADF Collection
/
BS1 part 34.zip
/
BS1 part 34
/
FredFish PD 308.adf
/
FReq
/
Examples
/
DeArc
< prev
next >
Wrap
Text File
|
1990-01-18
|
802b
|
36 lines
/* DeArc.rexx - uses the ARC command to extract archive files */
/* ** Note ** This program assumes that you have the 'ARC' program located
in your SYS:C directory */
if ~(Show('P', 'FileRequester')) then
do
ADDRESS COMMAND "Run >NIL: <NIL: DEVS:Freq >NIL: <NIL:"
ADDRESS COMMAND "WaitForPort FileRequester"
if ~(Show('P', 'FileRequester')) then
do
say "UnAble to Load FileRequester"
exit
end
end
OPTIONS RESULTS
ADDRESS "FileRequester"
'SetPattern' /* clear the pattern */
'SetFileName' /* clear the filename */
more = "TRUE"
do while more = "TRUE"
'SetTitle Select an Archive to Extract'
'DisplayDef'
'GETFILENAME'
if (RC = 0) then
ADDRESS COMMAND 'SYS:C/ARC -x' '"' || Result || '"'
else
do
more = "FALSE"
say 'Operation Canceled'
end
end
exit 0